MODULE p24;
VAR
  flag [768] : INTEGER;
  bottom [0] : CARDINAL;
  somewhere [16238] : CHAR;
BEGIN
  flag [1] := 25;
END pr24.